/* GUI CONVERTED from rcsoisf.p (converter v1.75) Thu Jul 19 05:35:39 2001 */
/* rcsoisf.p - Release Management Customer Schedules                    */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                  */
/* All rights reserved worldwide.  This is an unpublished work.         */
/* $Revision: 1.6.1.4 $                                             */
/*V8:ConvertMode=Maintenance                                            */
/* REVISION: 7.4    LAST MODIFIED: 07/07/94 BY: dpm *GK62*              */
/* REVISION: 8.5    LAST MODIFIED: 08/01/95 BY: taf *J053*              */
/* REVISION: 7.4    LAST MODIFIED: 10/02/95 BY: jym *G0XY*              */
/* REVISION: 7.4    LAST MODIFIED: 12/11/95 BY: jzs *H0HL*              */
/* REVISION: 8.6    LAST MODIFIED: 05/20/98 BY: *K1Q4* Alfred Tan       */
/* REVISION: 9.1    LAST MODIFIED: 03/24/00 BY: *N08T* Annasaheb Rahane */
/* REVISION: 9.1    LAST MODIFIED: 08/12/00 BY: *N0KP* myb              */
/* Old ECO marker removed, but no ECO header exists *F0PN*              */
/* Revision: 1.6.1.3     BY: Katie Hilbert  DATE: 04/01/01 ECO: *P002*  */
/* $Revision: 1.6.1.4 $ BY: Ellen Borden  DATE: 07/09/01 ECO: *P007* */
/******************************************************************************/
/* All patch markers and commented out code have been removed from the source */
/* code below. For all future modifications to this file, any code which is   */
/* no longer required should be deleted and no in-line patch markers should   */
/* be added.  The ECO marker should only be included in the Revision History. */
/******************************************************************************/

{mfdeclre.i}
{gplabel.i} /* EXTERNAL LABEL INCLUDE */
define shared variable rndmthd like rnd_rnd_mthd.
define shared variable so_recno as recid.
define new shared variable new_order like mfc_logical.
define new shared frame d.
define new shared frame sotot.
define new shared variable undo_trl2 like mfc_logical.
define variable ext_actual like sod_price no-undo.
define variable ext_margin as decimal format "->>>>,>>>,>>9.99" no-undo.
define variable disc_pct like so_disc_pct no-undo.

{mfsotrla.i "NEW"} /* Define trailer variables and forms */

/* ASSIGN ORIGINAL FORMAT TO _OLD VARIABLES */
assign
   nontax_old = nontaxable_amt:format
   taxable_old = taxable_amt:format
   line_tot_old = line_total:format
   disc_old     = disc_amt:format
   trl_amt_old = so_trl1_amt:format
   tax_amt_old = tax_amt:format
   container_old = container_charge_total:format
   line_charge_old = line_charge_total:format
   ord_amt_old = ord_amt:format.

{socurfmt.i}
{etdcrvar.i}  /* TOOLKIT DUAL CURRENCY PRICING VARIABLES */
{etvar.i}     /* TOOLKIT GENERAL VARIABLES */
{etrpvar.i}   /* TOOLKIT REPORTING CURRENCY VARIABLES */

/* SET MAINT YES */
/* USED IN MFSOTRL.I  */
maint = yes.

for first soc_ctrl fields (soc_margin) no-lock:
end.

for first so_mstr
      fields (so_cr_terms so_curr so_cust so_disc_pct so_due_date
      so_ex_rate so_ex_rate2 so_nbr so_ord_date so_pst_pct so_ship
      so_ship_date so_tax_date so_tax_pct so_trl1_amt so_trl1_cd
      so_trl2_amt so_trl2_cd so_trl3_amt so_trl3_cd so__qadl01)
      where recid(so_mstr) = so_recno no-lock:
end.

/* Calculate totals and taxes for trailer */
{mfsotrl.i &qty="sod_qty_inv"}

{etdcrc.i so_curr so_mstr.so}
